-- card: 8009 from stack: in
-- bmap block id: 8922
-- flags: 4000
-- background id: 4754
-- name: CSL Marks
----- HyperTalk script -----
on rollingDemo
  answer "Marks demo will take approx. 7 min." with "Cancel" or "OK"
  if it is "Cancel" then exit rollingDemo
  set the cursor to none
  lock screen
  go to card "Rolling Demo Instructions" of this background
  unlock screen with dissolve fast
  repeat until the mouseClick
  end repeat
  set the cursor to hand
  autoMouse moveMouse,420,60
  click at the loc of bg button id 7
  showInfo "Introduction",false
  wait 1 second
  set the cursor to hand
  autoMouse menuMouse,4,8 -- Letter Grades…
  showInfo "Letter Grades",true
  wait 1 second
  set the cursor to hand
  autoMouse moveMouse,420,229
  click at the loc of card button "OK"
  autoMouse menuMouse,3,9 -- Special Marks…
  showInfo "Special Marks",true
  wait 1 second
  set the cursor to hand
  autoMouse moveMouse,169,252
  click at the loc of card button "OK"
  showInfo "Enter Data",false
  wait 1 second
  set the cursor to hand
  autoMouse menuMouse,2,1 -- New Bin
  if the result is "Item not found" then -- test for XCMD bug
    send "doMenu New Bin" to background "CSL Marks"
  end if
  wait 1 second
  type "Assignments"
  wait 30
  select text of background field id 17
  type "25.0"
  wait 1 second
  autoMouse menuMouse,2,1 -- New Bin
  if the result is "Item not found" then -- test for XCMD bug
    send "doMenu New Bin" to background "CSL Marks"
  end if
  wait 1 second
  type "Exams"
  wait 30
  select text of background field id 20
  type "75.0"
  wait 1 second
  autoMouse menuMouse,2,1 -- New Bin
  if the result is "Item not found" then -- test for XCMD bug
    send "doMenu New Bin" to background "CSL Marks"
  end if
  wait 1 second
  type "Term 1 Mark"
  select empty
  showInfo "Bins",false
  wait 1 second
  set the cursor to hand
  autoMouse moveMouse,160,80
  click at the loc of background button id 1
  click at the loc of background button id 1
  wait 30
  autoMouse menuMouse,2,1 -- New Task
  if the result is "Item not found" then -- test for XCMD bug
    send "doMenu New Task" to background "CSL Marks"
  end if
  wait 1 second
  type "Essays"
  wait 30
  select text of card field id 6
  type "100.0"
  wait 30
  select text of card field id 7
  type "1"
  wait 1 second
  select text of card field id 21
  type "A"
  put "92.5" into background field id 29
  put "92.5" into background field id 61
  put "A" into background field id 69
  wait 30
  select text of card field id 22
  type "85.0"
  put "85.0" into background field id 30
  put "85.0" into background field id 62
  put "A-" into background field id 70
  wait 30
  select text of card field id 23
  type "C+"
  put "67.5" into background field id 31
  put "67.5" into background field id 63
  put "C+" into background field id 71
  wait 30
  select text of card field id 24
  type "A-"
  put "87.5" into background field id 32
  put "87.5" into background field id 64
  put "A-" into background field id 72
  wait 30
  select text of card field id 25
  type "D"
  put "52.5" into background field id 33
  put "52.5" into background field id 65
  put "D" into background field id 73
  wait 1 second
  put "64.0" into background field id 34
  put "64.0" into background field id 66
  put "C" into background field id 74
  wait 1 second
  put "77.5" into background field id 35
  put "77.5" into background field id 67
  put "B" into background field id 75
  wait 1 second
  put "82.5" into background field id 36
  put "82.5" into background field id 68
  put "B+" into background field id 76
  showInfo "Tasks",true
  wait 1 second
  set the cursor to hand
  autoMouse moveMouse,18,35
  click at the loc of card button "Close"
  wait 1 second
  autoMouse moveMouse,230,80
  click at the loc of background button id 2
  click at the loc of background button id 2
  wait 30
  autoMouse menuMouse,2,1 -- New Task
  if the result is "Item not found" then -- test for XCMD bug
    send "doMenu New Task" to background "CSL Marks"
  end if
  wait 1 second
  type "Midterm Exam"
  wait 30
  select text of card field id 6
  type "50.0"
  wait 30
  select text of card field id 7
  type "1"
  wait 1 second
  select text of card field id 21
  type "C+"
  put "67.6" into background field id 37
  put "73.8" into background field id 61
  put "B-" into background field id 69
  wait 30
  select text of card field id 22
  type "A-"
  put "87.6" into background field id 38
  put "86.9" into background field id 62
  put "A-" into background field id 70
  wait 30
  select text of card field id 23
  type "B"
  put "77.6" into background field id 39
  put "75.1" into background field id 63
  put "B" into background field id 71
  wait 30
  select text of card field id 24
  type "B+"
  put "82.4" into background field id 40
  put "83.7" into background field id 64
  put "B+" into background field id 72
  wait 30
  select text of card field id 25
  type "C"
  put "62.4" into background field id 41
  put "59.9" into background field id 65
  put "C-" into background field id 73
  wait 1 second
  put "72.4" into background field id 42
  put "70.3" into background field id 66
  put "B-" into background field id 74
  wait 1 second
  put "87.6" into background field id 43
  put "85.1" into background field id 67
  put "A-" into background field id 75
  wait 1 second
  put "70.0" into background field id 44
  put "73.1" into background field id 68
  put "B-" into background field id 76
  showInfo "Class Average",true
  wait 1 second
  set the cursor to hand
  autoMouse moveMouse,26,49
  click at the loc of card button "Close"
  showInfo "Consolidation",false
  wait 1 second
  set the cursor to hand
  autoMouse menuMouse,4,9 -- Consolidation…
  wait 1 second
  autoMouse moveMouse,80,90
  tabkey
  wait 30
  type "Term 1"
  wait 30
  autoMouse moveMouse,140,169
  send "mouseUp up" to card button id 6
  wait 30
  autoMouse moveMouse,140,201
  send "mouseUp down" to card button id 7
  wait 30
  autoMouse moveMouse,340,186
  click at the loc of card button id 10
  wait 1 second
  autoMouse moveMouse,346,262
  click at the loc of card button "Consolidate"
  lock screen
  go to card "Term 1 Mark" of this background
  put "100.0" into card field id 6
  put "0" into card field id 7
  put "75.9" into card field id 8
  put "0.0" into card field id 9
  put "0.0" into card field id 10
  put "73.8" into card field id 21
  put "86.9" into card field id 22
  put "75.1" into card field id 23
  put "83.7" into card field id 24
  put "59.9" into card field id 25
  go back
  unlock screen
  autoMouse moveMouse,303,80
  click at the loc of background button id 3
  click at the loc of background button id 3
  wait 3 seconds
  autoMouse moveMouse,35,64
  click at the loc of card button "Close"
  wait 1 second
  autoMouse menuMouse,4,10 -- Term Marks…
  showInfo "Term Marks",true
  wait 1 second
  set the cursor to hand
  autoMouse moveMouse,223,95
  select text of card field id 25
  wait 30
  autoMouse moveMouse,94,279
  click at the loc of card button id 21
  put "B-" into card field id 24
  put "A-" into card field id 36
  put "B" into card field id 48
  put "B+" into card field id 60
  put "73.8" into card field id 25
  put "86.9" into card field id 37
  put "75.1" into card field id 49
  put "83.7" into card field id 61
  wait 30
  autoMouse moveMouse,437,258
  click at the loc of card button "Comments…"
  wait 30
  autoMouse moveMouse,181,134
  click at the loc of card button id 5
  wait 30
  autoMouse moveMouse,379,217
  click at the loc of card button "Open"
  showInfo "Comments",true
  wait 1 second
  set the cursor to hand
  autoMouse moveMouse,259,110
  select text of card field id 31
  type "10"
  wait 30
  tabKey
  type "29"
  wait 30
  tabKey
  type "45"
  wait 1 second
  autoMouse moveMouse,259,142
  select text of card field id 43
  type "9"
  wait 1 second
  autoMouse moveMouse,259,174
  select text of card field id 55
  type "56"
  wait 30
  tabKey
  type "78"
  wait 1 second
  autoMouse moveMouse,259,206
  select text of card field id 67
  type "36"
  wait 1 second
  autoMouse moveMouse,259,94
  select text of card field id 26
  type "F"
  wait 30
  tabKey
  type "P"
  wait 1 second
  autoMouse moveMouse,259,126
  select text of card field id 38
  type "G"
  wait 30
  tabKey
  type "G"
  wait 1 second
  autoMouse moveMouse,259,158
  select text of card field id 50
  type "F"
  wait 30
  tabKey
  type "E"
  wait 1 second
  autoMouse moveMouse,259,190
  select text of card field id 62
  type "E"
  wait 30
  tabKey
  type "G"
  select empty
  showInfo "Period Attendance",true
  wait 1 second
  set the cursor to hand
  autoMouse moveMouse,355,94
  select text of card field id 28
  type "31.0"
  wait 30
  tabKey
  type "5.0"
  wait 30
  tabKey
  type "4.0"
  wait 1 second
  autoMouse moveMouse,355,126
  select text of card field id 40
  type "34.0"
  wait 30
  tabKey
  type "3.0"
  wait 30
  tabKey
  type "1.0"
  wait 1 second
  autoMouse moveMouse,355,158
  select text of card field id 52
  type "30.0"
  wait 30
  tabKey
  type "1.0"
  wait 30
  tabKey
  type "5.0"
  wait 1 second
  autoMouse moveMouse,355,190
  select text of card field id 64
  type "33.0"
  wait 30
  tabKey
  tabKey
  type "2.0"
  select empty
  showInfo "Term Marks Dialog",true
  wait 1 second
  set the cursor to hand
  autoMouse moveMouse,438,284
  click at the loc of card button "OK"
  showInfo "Sorting",false
  wait 1 second
  set the cursor to hand
  autoMouse menuMouse,4,12 -- Sort…
  wait 3 seconds
  autoMouse moveMouse,340,240
  click at the loc of card button "Cancel"
  showInfo "Reports",false
  wait 1 second
  set the cursor to hand
  autoMouse menuMouse,5,5 -- Task Statistics…
  wait 3 seconds
  autoMouse moveMouse,21,40
  click at the loc of card button "Close"
  wait 30
  autoMouse menuMouse,5,6 -- Student Report…
  wait 1 second
  autoMouse moveMouse,142,90
  click at the loc of card button id 4
  wait 30
  autoMouse moveMouse,350,105
  send "mouseUp up" to card button id 11
  wait 30
  autoMouse moveMouse,350,140
  send "mouseUp down" to card button id 12
  wait 30
  autoMouse moveMouse,350,170
  send "mouseUp down" to card button id 13
  wait 30
  autoMouse moveMouse,312,245
  click at the loc of card button "Detailed"
  wait 1 second
  autoMouse moveMouse,178,292
  click at the loc of card button "Print"
  wait 30
  autoMouse moveMouse,440,136
  click at the loc of card button "Open…"
  wait 1 second
  autoMouse moveMouse,189,132
  click at the loc of card button id 5
  wait 1 second
  autoMouse moveMouse,379,216
  click at the loc of card button "Open"
  wait 1 second
  autoMouse moveMouse,440,218
  click at the loc of card button "Leave"
  wait 1 second
  showInfo "Student Report",true
  wait 1 second
  set the cursor to hand
  autoMouse moveMouse,21,40
  click at the loc of card button "Close"
  wait 30
  autoMouse menuMouse,5,8 -- Term Report…
  wait 1 second
  autoMouse moveMouse,130,83
  click at the loc of card button id 2
  wait 30
  autoMouse moveMouse,237,83
  click at the loc of card button "Term 1"
  wait 30
  autoMouse moveMouse,237,159
  click at the loc of card button "Letter Grade"
  wait 30
  autoMouse moveMouse,237,175
  click at the loc of card button "Percentage"
  wait 30
  autoMouse moveMouse,237,207
  click at the loc of card button "Work Habit"
  wait 30
  autoMouse moveMouse,237,222
  click at the loc of card button "Citizenship"
  wait 30
  autoMouse moveMouse,237,255
  click at the loc of card button "Present"
  wait 30
  autoMouse moveMouse,237,271
  click at the loc of card button "Late"
  wait 30
  autoMouse moveMouse,237,287
  click at the loc of card button "Absent"
  wait 30
  autoMouse moveMouse,352,160
  click at the loc of card button "Comment 1"
  wait 1 second
  autoMouse moveMouse,285,314
  click at the loc of card button "Print"
  wait 3 seconds
  autoMouse moveMouse,21,40
  click at the loc of card button "Close"
  showInfo "Conclusion",false
  wait 1 second
  set the cursor to hand
  autoMouse menuMouse,1,1 -- About
  if the result is "Item not found" then -- test for XCMD bug
    send "doMenu About" to background "CSL Marks"
  end if
end rollingDemo

on showInfo fieldName,cardPict
  lock screen
  set the cursor to none
  restoreMenuBar false
  grayPicture cardPict
  installMenuBar 1090,1091,1092,1093,1094,-211
  show card field fieldName
  unlock screen with dissolve
  put the secs into temp
  repeat until the mouseClick
    if (the secs - temp) > 30 then show card field "Continue"
  end repeat
  lock screen
  hide card field fieldName
  hide card field "Continue"
  pop card
  unlock screen with dissolve
  if the optionKey is down then exit to HyperCard
end showInfo


-- part 1 (button)
-- low flags: 00
-- high flags: 0001
-- rect: left=418 top=168 right=214 bottom=500
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Mask


-- part contents for background part 5
----- text -----
Marks

-- part contents for background part 6
----- text -----
The Grade Book module designed for teachers is available for the Apple //e, //GS and Macintosh.  Mac School can download class information created in Mac School (ie. Teacher Name, Course Name, Student Roster) to a teachers disk for the //e, //GS or Macintosh.  The teacher can then use the Grade Book program throughout the term and then upload the term marks into Mac School to produce report cards.

Teachers can send home progress reports.  They have the flexibility to identify what type of information they would like on the report (comments, student percentage, letter grade, class average, etc.).

Soon to be released the capability to upload term marks from the //GS via the Appleshare network.  The ability to upload term marks from the Macintosh already exists!

LXR•Test, a test generation and scoring program for the Macintosh by Logic Extension Resources, can transfer test results into CSL Marks for the Macintosh.